0 REM STRESS 2 VON DANIEL HIMMMEL 2 REM -------- KULTSOFT/JUNI 1993 4 REM 6 REM COPY ME !!!----PUBLIC DOMAIN 8 REM 10 REM **************************** 12 POKE53280,0:POKE53281,0:PRINT"[147][152]" 14 IF LO=0 THEN LO=1:LOAD"STRESS 2 CHAR",8,1 18 PRINT"[147][152]":REM -- GAGGENAU ---------- 20 PRINTCHR$(8) 22 PRINT" [211]TRESS 2" 24 PRINT" [208]ROGRAMMIERT VON 26 [153]"SYS STR$ANIEL LEFT$IMMEL 28 PRINT"[152] [203]ULTSOFT /[202]UNI 1993 30 [153]"OPEN STR$IES SCHOENE (null)ROGRAMM IST (null)STR$-(null)OFT!":[141] 63000 32 [158] 58592 36 [153]"LOAD(null)IRD EINE ATNNLEITUNG BENOETIGT ? (MID$/(null))WAIT";:[143] KULTSOFT SOFTWARE ! 38 [161] A$:[139] A$[178]"" [167] [137] 38 40 [139] A$[178]"N" [167] [137] 100 42 [139] A$[178]"J" [167] [137] 46 44 [137] 38:[143] ************************ 46 [153]"LOADSYSSTR$IE ATNNLEITUNG :WAIT" 48 [153]"OPEN ASCREDDIE IST EIN ABSOLUTES LENOMPUTER- 50 PRINT" SPIELEFREAK. [213]ND NUN WILL ER SICH EIN 52 [153]" NEUES CHR$AME REINZIEHEN, DOCH DAZU MUSS 54 PRINT" ER ERST IN DIE [207]BERSTADT FAHREN, UND 56 [153]" DORT DAS (null)PIEL, DAS UEBRIGENS (null)(null)VAL(null)RIGHT$CHR$ 3 58 PRINT" HEISST, KAUFEN. [206]UN LIEGT DA EIN 60 [153]" GEWISSES (null)ROBLEM: (null)AEMLICH ASCREDDIE 62 PRINT" WOHNT IN DER [213]NTERSTADT. [197]S GIBT NUR 64 [153]" EINEN (null)EG ZUR (null)BERSTADT, NAEMLICH 66 PRINT" DIE [213]-[194]AHN.":REM KULTPOWER IS AKTIVATED 68 PRINT" <[196]RUECKE BITTE DIE [211]PACETASTE>":SYS 58592:SYS 58592:SYS 58592 70 PRINT"[147][158][196]IE [211]TEUERUNG :[146]":REM****** 72 PRINT"[159] [205]IT DER [212]ASTE [206] FUER [206]ORDEN, [211] FUER 74 [153]" (null)UEDEN, USW. KANN MAN IN DIE VERSCHIE- 76 PRINT" DENEN [210]ICHTUNGEN GEHEN. [193]NDERE [196]INGE 78 [153]" KANN MAN AUSFUEHREN, INDEM MAN DIE 80 PRINT" VERSCHIEDENEN [214]ERBEN BENUTZT, DIE 82 [153]" IN DEM (null)EXT VORGEGEBEN WERDEN. (null)OCH 84 PRINT" WAS, [215]OERTER WIE NIMM, WERDEN KLEIN " 85 PRINT" GESCHIEBEN UND BEI DEN [207]BJEKTEN IST ES EGAL. 86 [153]" <(null)PACE DRUECKEN>":[158] 58592:[158] 58592:[158] 58592 100 [151] 53272,20:[143] GROSS/GRAFIK----------------------------ZEICHENSATZ^ 110 [153]"LOADLIST 112 PRINT" [176][196][196][192][198][201] [212] 114 [153]" CHR$ (null) 116 PRINT" [221] [198][219][196] 118 [153]" MID$ASCTANSTR$ASCRIGHT$ CHR$ -ASCSTR$ (null)ASCSTR$RIGHT$ (null)ASCSTR$ASCASC (null)STR$ASCTANSTR$ 120 PRINT" [200] [212] [200] [200] [200] [199] [212] 122 [153]" CHR$ (null) CHR$ -ASCSTR$EXP /STR$ASCLENRIGHT$ /LENSTR$ASCRIGHT$ 124 PRINT" [173][196][198][192][196][203] [202][210] [212] [202][198][196] [196][198][196][192][203] [196][198][192][198][203] 126 [153]" " 128 [153]"  WAIT " 130 [153]" P WAIT  WAITP " 132 [153]" D WAIT  WAITD " 134 [153]"  WAIT " 136 [153]" " 138 [153]" " 140 [158] 58592:[158] 58592:[158] 58592 141 [158] 51200 142 V1$[178]" ATNN DER (null)AND HAENGT EIN (null)CHLUESSEL":V2$[178]"NIMM" 143 V3$[178]" ATNUF DEM PEEKODEN LIEGT EIN (null)ADIERGUMMI":V4$[178]"NIMM" 144 V5$[178]" VALS KLEBT AUCH EIN (null)AUGUMMI AM PEEKODEN":V6$[178]"NIMM" 145 V7$[178]" (null)LOETZLICH SIEHST DU WIE EIN ETWA 146 V8$=" ZEHNJAEHRIGES [203]IND AM [210]ANDE DES 147 V9$[178]" (null)ARKS STEHT UND WEINT.":VA$[178]"SPRICH" 148 VC$[178]" " 149 [137] 200 150 [143] UNI-INPUT-AUS-64'ER-02/92------ 151 I$[178]"" 155 LE[178]38:TE$[178]">":[151] 214,[194](214)[170]1:[151] 211,2[171][195](TE$)[171]1 156 [158] 58732 157 [153] TE$;" "; 158 P[178]0 159 [151]204,0 160 [151]198,0:[146] 198,1 161 [161]X$ 162 [151]207,0:[151]204,1:[153]" CMD"; 163 [139]P[177]0[175][198](X$)[178]20[167]I$[178][200](I$,[195](I$)[171]1):[153]"CMD CMD";:P[178]P[171]1:[137]159 164 [139][198](X$)[178]13[137]172 165 [139]P[178]LE[137]159 166 [139]BS[178]0[175](X$[179]"0"[176]X$[177]"9")[137]159 167 [139]BS[178]1[175](X$[179]" "[176](X$[177][199](127)[175]X$[179][199](160)))[137]159 168 [153]X$; 169 I$[178]I$[170]X$ 170 P[178]P[170]1 171 [137] 159 172 [142] 175 [143] INVENTARLISTE AUSGEBEN ........ 180 [153][199](13) 182 [153]"RIGHT$NVENTAR:" 183 [153]" CHR$ELD:"GE"":[153]"---------------------------------------" 184 [153] KEY$" "RAD$" " 185 [153] GUM$" "BLU$" " 186 [153] CARD$" 198 PRINT" <[196]RUECKE [211]PACE>":SYS 58592:SYS 58592:SYS 58592 199 RETURN:REM ************************ 200 PRINT"[147][158] [196]U STEHST IN DEINEM [218]IMMER, DAS EINEM":BS=1 202 PRINT" [211]AUHAUFEN GLEICHT. [193]BER EINE KLEINE 204 [153]" VALCKE IST ZUGEGEBENERMASEN SAUBER. 206 PRINT" [206]AEHMLICH DIE, IN DER DEIN WUNDER- 208 [153]" SCHOENER LEN64 STEHT. RIGHT$M (null)ORDEN LIEGT 210 PRINT" DIE [218]IMMERTUER, DIE GEOEFFNET IST. 212 [139] V1$[178]"" [167] [137] 214 213 [153]V1$ 214 [153]" STR$U KANNST (null), INVENTAR,"V2$"... 215 BS=1 216 GOSUB 150 217 IF I$="" THEN GOTO 200 218 IF I$="N" OR I$="[206]" THEN GOTO 250 219 IF I$="NEHM [211]CHLUESSEL" OR I$="NIMM [211]HLUESSEL" THEN GOTO 230 220 IF I$="NEHME [211]CHLUESSEL" OR I$="NIMM [211]CHLUESSEL" THEN GOTO 230 221 IF I$="NEHME SCHLUESSEL" OR I$="NIMM SCHLUESSEL" THEN GOTO 230 222 IF I$="NIM SCHLUESSEL" OR I$="NIMM SCHLUESEL" THEN GOTO 230 223 IF I$="INVENTAR" THEN GOSUB 175 224 PRINTCHR$(13):PRINT" [196]U KANNST DAS LEIDER NICHT TUN !" 225 PRINT" <[196]RUECKE [211]PACE>":SYS 58592:SYS 58592:SYS 58592 226 GOTO 200 230 IF KEY$="[211]CHLUESSEL" THEN GOTO 200 231 PRINTCHR$(13) 232 PRINT" [196]U NIMMST DIR DEN [211]CHLUESSEL UND 233 [153]" STECKST IHN DIR IN DIE (null)ASCHE DEINER 234 PRINT" [200]OSE.":PRINT" <[196]RUECKE [211]PACE>" 235 KEY$="[211]CHLUESSEL":V1$="":V2$="" 236 SYS 58592:SYS 58592:SYS 58592 240 GOTO 200 250 PRINT"[147] [206]UN STEHST DU IM [198]LUR DEINES [200]AUSES. 252 [153]" VALS SIEHT SO AUS, ALS HAETTE DEIN 254 PRINT" KLEINES [205]IEZEKAETZCHEN WIEDER EINMAL 256 [153]" EINEN SEINER (null)OBSUCHTSANFAELLE GEHABT, 258 PRINT" [196]ENN DAS HALBE [200]AUS LIEGT IN [211]CHUTT 260 [153]" UND ATNSCHE. 261 IF V3$="" THEN GOTO 263 262 PRINTV3$ 263 PRINT" [196]U KANNST : [211],[207],[206],"V4$"..." 264 GOSUB 150:REM UNI INPUT AUFRUFEN... 266 IF I$="" THEN GOTO 250 267 IF I$="[211]" OR I$="S" THEN GOTO 200 268 IF I$="[206]" OR I$="N" THEN GOTO 300 270 IF I$="[207]" OR I$="O" THEN GOTO 350 271 IF I$="NEHME RADIERGUMMI" OR I$="NEHME [210]ADIERGUMMI" THEN GOTO 280 274 IF I$="NIMM RADIERGUMMI" OR I$="NIMM [210]ADIERGUMMI" THEN GOTO 280 275 IF I$="INVENTAR" THEN GOSUB 175 276 PRINTCHR$(13):PRINT" [196]U KANNST DAS LEIDER NICHT TUN !" 277 PRINT" <[196]RUECKE [211]PACE>":SYS 58592:SYS 58592 279 GOTO 250 280 PRINTCHR$(13) 282 IF RAD$="[210]ADIERGUMMI" THEN GOTO 250 284 PRINT" [196]U NIMMST DIR DEN KLEINEN, UNSCHULD- 286 [153]" IGEN (null)ADIERGUMMI UND VERSTAUST IHN 288 PRINT" IN DEINEN [203]ANGOROOS [211]UPERSHOES. 289 [153]" ":RAD$[178]"(null)ADIERGUMMI":V3$[178]"":V4$[178]"" 290 [158] 58592:[158] 58592:[158] 58592 295 [137] 250 300 [153]"LOAD (null)UN STEHST DU VOR DEINEM LEFT$AUS. 302 PRINT" [196]U KANNST AM OESTLICHEN [197]NDE DER 304 [153]" (null)TRASSE EIN (null)CHILD MIT DER ATNUF- 306 PRINT" SCHRIFT '[195]64 FOREVER !', ODER 308 [153]" SO AEHNLICH, ERKENNEN. STR$U KANNST 310 PRINT" JA HINGEHEN WENN DU WILLST. 312 [153]" RIGHT$M (null)ESTLICHEN (null)EIL DER (null)TRASSE GEHT 314 PRINT" ES ZU EINEM KLEINEN [194]LUMENLADEN. 316 [153]" STR$U KANNST : (null),(null),(null),... 318 GOSUB 150 320 IF I$="" THEN GOTO 300 324 IF I$="[211]" OR I$="S" THEN GOTO 250 326 IF I$="[215]" OR I$="W" THEN GOTO 400 328 IF I$="[207]" OR I$="O" THEN GOTO 450 330 IF I$="INVENTAR" THEN GOSUB 175 331 PRINTCHR$(13):PRINT" [196]U KANNST DAS LEIDER NICHT TUN !" 332 PRINT" <[196]RUECKE [211]PACE>":SYS 58592:SYS 58592:SYS 58592 335 GOTO 300 350 PRINT"[147] [206]UN STEHST IN DEINER KLEINEN [203]UECHE, 352 [153]" AUCH HIER SIEHT MAN WIE DEINE (null)ATZE 354 PRINT" GETOBT HABEN MUSS. 356 [153]" STR$U KANNST NACH (null). 358 GOSUB 150 359 IF I$="" THEN GOTO 350 360 IF I$="W" OR I$="[215]" THEN GOTO 250 362 IF I$="INVENTAR" THEN GOSUB 175 363 PRINTCHR$(13):PRINT" [196]U KANNST DAS LEIDER NICHT TUN !" 364 PRINT" <[196]RUECKE [211]PACE>":SYS 58592:SYS 58592: SYS 58592 366 GOTO 350 400 PRINT"[147] [206]UN STEHST DU VOR EINEM KLEINEN UND 402 [153]" SCHOENEN PEEKLUMENLADEN. STR$URCH DAS (null)CHAU- 404 PRINT" FENSTER KANNST DU WAHRE [194]ERGE VON 406 [153]" PEEKLUMEN UND EINE WUNDERSCHOENE, 408 PRINT" ALLERDINGS ETWAS KLEINE [214]ERKAUFERIN 410 [153]" SEHEN. 415 IF V5$="" THEN GOTO 417 416 PRINTV5$ 417 PRINT" [196]U KANNST IN DAS [199]ESCHAEFT, [207],"V6$"... 419 [141] 150 420 [139] I$[178]"" [167] [137] 400 422 [139] I$[178]"(null)" [176] I$[178]"O" [167] [137] 300 424 [139] I$[178]"INVENTAR" [167] [141] 175 425 [139] I$[178]"GEHE IN GESCHAEFT" [176] I$[178]"GEHE IN CHR$ESCHAEFT" [167] [137] 500 426 [139] I$[178]"NEHME (null)AUGUMMI" [176] I$[178]"NIMM (null)AUGUMMI" [167] [137] 435 427 [139] I$[178]"GEHE GESCHAEFT" [176] I$[178]"GEHE CHR$ESCHAEFT" [167] [137] 500 428 [139] I$[178]"NEHME KAUGUMMI" [176] I$[178]"NIMM KAUGUMMI" [167] [137] 435 429 [139] I$[178]"GEHE IN CHR$ESCHAEFT"[176] I$[178]"GEHE IN GESCHAEFT" [176]I$[178]"GEHE REIN"[137] 500 430 [139] I$[178]"BETRETE CHR$ESCHAEFT" [176] I$[178]"BETRETE GESCHAEFT" [167] [137] 500 431 [139] I$[178]"BETRITT CHR$ESCHAEFT" [176] I$[178]"BETRITT GESCHAEFT" [167] [137] 500 432 [139]I$[178]"GEH IN CHR$ESCHAEFT"[176]I$[178]"GEH IN GESCHAEFT"[176]I$[178]"GEH REIN" [137] 500 433 [153][199](13):[153]" STR$U KANNST DAS LEIDER NICHT TUN !" 434 [153]" ":[158] 58592:[158] 58592:[158] 58592:[137] 400 435 [153][199](13) 436 [153]" STR$U BLICKST KONZENTRIERT DREIN, 437 PRINT" WAEHREND DU DAS TROCKENE [203]AUGUMMI 438 [153]" VERZWEIFELT VERSUCHST VOM PEEKODEN LOS- 439 PRINT" ZULOESEN. [206]EIN, SO GEHT DAS NICHT ! 440 [153]" STR$ENKST DU DIR, DA BRAUCH ICH IRGENDEIN 441 PRINT" [200]ILFSMITTEL ! 443 [153]" (null)AS FUER EIN LEFT$ILFSMITTEL WILLST DU 444 PRINT" BENUTZEN ?([205]IT'KEINS'KANNST DU WEITER SPIELEN) 445 [141] 150:[139]I$[178]"" [167] [153]"LOAD":[137] 436 446 [139] I$[178]"KEINS" [176] I$[178]"KEINES" [167] [137] 400 447 [139] I$[178]"(null)CHLUESSEL" [176] I$[178]"BENUTZE SCHLUESSEL" [167] [137] 490 448 [139] I$[178]"SCHLUESSEL" [176] I$[178]"BENUTZE (null)CHLUESSEL" [167] [137] 490 449 [153]"LOADLOAD":[137] 435 450 [153]"LOAD (null)UN STEHST DU BEI DER (null)LAKATWAND UND 452 PRINT" SIEHST, DAS ES DAHINTER NOCH NACH 454 [153]" (null)ORDEN GEHT. (null)ENN DU SCHON IN DIE 456 PRINT" [210]ICHTUNG BLICKST, DORT LIEGT DER 458 [153]" (null)NTERSTADTPARK. 460 PRINT" [196]U KANNST NACH [206] UND [215],LIES,... 462 [141] 150 464 [139] I$[178]"" [167] [137] 450 465 [139] I$[178]"INVENTAR" [167] [141] 175 466 [139] I$[178]"LIES" [176] I$[178]"LESE" [167] [137] 475 467 [139] I$[178]"(null)" [176] I$[178]"N" [167] [137] 600 468 [139] I$[178]"(null)" [176] I$[178]"W" [167] [137] 300 469 [139] I$[178]"LIES PLAKAT" [176] I$[178]"LESE PLAKAT" [167] [137] 475 470 [139] I$[178]"LIES (null)LAKAT" [176] I$[178]"LESE (null)LAKAT" [167] [137] 475 471 [153][199](13):[153]" STR$U KANNST DAS LEIDER NICHT TUN !" 472 [153]" ":[158] 58592:[158] 58592:[158] 58592 474 [137] 450 475 [153][199](13):[153]" ATNN DER (null)AND STEHT : 476 PRINT" ' [204]ONG LIVE THE [194]ROTKASCHTEN '. [196]U 478 [153]" HAST DICH ALSO GEHOERIG VERLESEN ! 480 PRINT" [196]U SOLLTEST MAL WIEDER ZUM [193]UGEN- 482 [153]" ARZT GEHEN... 484 PRINT" <[208]RESS [211]PACE>" 486 SYS 58592:SYS 58592:SYS 58592 487 GOTO 450 490 PRINT"[147] [215]OW, WIE BIST DU NUR DARAUF GEKOMMEN? 491 [153]" (null)UN KNIEST DU SCHWITZEND UND STOEHNEND 492 PRINT" UEBER DEM [203]AUGUMMI UND VERSUCHST IHN 493 [153]" MIT DEM (null)CHLUESSEL VOM PEEKODEN LOS- 494 PRINT" ZULOESEN. [196]AS DIE VORBEIGEHENDEN 495 [153]" (null)EUTE DICH SCHRAEG ANSEHEN STOERT":V5$[178]"":V6$[178]"" 496 [153]" DICH NICHT, DENN JETZT BEGINNT SICH" 497 [153]" DER (null)AUGUMMI ZU LOESEN UND DAS (null)UNDER":GUM$[178]"(null)AUGUMMI" 498 [153]" GESCHIEHT ! STR$U HAST DEN (null)AUGUMMI !!! " 499 [158] 58592:[158] 58592:[158] 58592:[137] 400 500 [153]"LOAD (null)UN STEHST DU INERHALB DES PEEKLUMEN- 502 PRINT" LADENS. [196]U SCHAUST DICH UM UND SIEHST: 504 [153]" PEEKLUMEN ! (null)ELCH EIN (null)UFALL ! ATNLS DEIN 506 PRINT" [194]LICK AUF DIE HUEBSCHE [214]ERKAUFERIN 508 [153]" FAELLT, WIRD DEIN (null)ERSTAND GANZ UM- 510 PRINT" NEBELT UND DEIN [201]NSTINKTHIRN DENKT 512 [153]" EINIGES (null)ERSCHWEINTES (ICH FRAGE MICH, 514 PRINT" WO DA DER GROSSE [213]NTERSCHIED ZU 516 [153]" ASCREDDIES (null)ORMALZUSTAND LIEGEN SOLL ?!?) 518 PRINT"[145] [196]U BIST GANZ HINGERISSEN VON DEM 520 [153]" (null)AEDCHEN UND SO GANZ UNINTERESSIERT 522 PRINT" SCHEINT SIE AN DIR AUCH NICHT ZU SEIN! 524 [153]" STR$U BLINZELST IHR ZU, SIE BLINZELT DIR 526 PRINT" ZU, DU BLINZELST IHR WIEDER ZU, SIE 528 [153]" BLINZELT DIR... LEFT$ATN(null)(null) !!! RIGHT$ST DAS HIER 530 PRINT" EIN BILIGER [204]IEBESROMAN ODER EIN 532 [153]" RELATIV ERNSTHAFTES ATNDVENTURE ?!?" 533 [153]" ASCREDDIE, FUER DEIN (null)IEBESLEBEN HAST DU 534 PRINT" AUCH NOCH NACH DEM [211]PIEL [218]EIT !" 536 PRINT" [193]LSO ALLES NOCH MAL VON VORN. 538 [153]" " 540 [158] 58592:[158] 58592:[158] 58592 542 [153]"LOAD (null)UN BIST DU IM PEEKLUMENGESCHAEFT. STR$U 544 PRINT" BLICKST DICH UM UND SIEHST ALLE 546 [153]" MOEGLICHEN UND UNMOEGLICHEN (null)FLANZEN 548 PRINT" ([196]IES IST SCHLIESSLICH EIN [195]OMPUTER- 550 [153]" SPIEL !). (null)ND GANZ NEBENBEI BLICKST 552 PRINT" DU VERSTOHLEN AUF DIE WUNDERHUEBSCHE 554 [153]" (null)ERKAUFERIN UND MISST MIT EINEM 556 PRINT" ERFAHRENEM [194]LICK IHRE [207]BERWEITE AB. 558 [153]" (null)EBRIGENS, DU KANNST DIR PEEKLUMEN 559 PRINT" KAUFEN (WAS MAN IN EINEM [194]LUMENLADEN 560 [153]" EIGENTLICH ERWARTEN KANN). 562 PRINT" [196]U KANNST DAS [199]ESCHAEFT VERLASSEN UND 564 [153]" PEEKLUMEN KAUFEN. 565 GOSUB 150 566 IF I$="" THEN GOTO 542 568 IF I$="VERLASSE [199]ESCHAEFT" OR I$="VERLASSE GESCHAEFT" THEN GOTO 400 569 IF I$="GEHE RAUS" OR I$="GEH RAUS" THEN GOTO 400 570 IF I$="KAUFE [194]LUMEN" OR I$="KAUFE BLUMEN" THEN GOTO 580 571 IF I$="KAUFE" OR I$="BENUTZE [199]ELD" THEN GOTO 580 572 IF I$="BENUTZE GELD" OR I$="KAUFE PFLANZEN" THEN GOTO 580 573 IF I$="INVENTAR" THEN GOSUB 175 574 IF I$="USE MONEY" OR I$="KAUFE [208]FLANZEN" THEN GOTO 580 575 PRINTCHR$(13):PRINT" [196]AS KANNST DU LEIDER NICHT TUN !" 576 PRINT" <[196]RUECKE [211]PACE>":SYS 58592:SYS 58592:SYS 58592 579 GOTO 542 580 IF GE=0 THEN GOTO 595 581 PRINTCHR$(13):PRINT" [196]U KAUFST DIR EINEN SCHOENEN, 582 [153]" DUFTENDEN PEEKUND PEEKLUMEN UND BEZAHLST. 583 PRINT" [196]IE [208]FLANZEN KOSTEN UEBRIGENS 8 [205]ARK. 584 [153]" ":[158] 58592:[158] 58592:[158] 58592 586 BLU$[178]"PEEKLUMEN":GE[178]GE[171]8:[137] 542 595 [153][199](13):[153]" STR$U KANNST DIR LEIDER KEINE PEEKLUMEN 596 PRINT" KAUFEN, ODER WILLST DU ZUM [196]IEB WERDEN? 597 [153]"ON (null)EIN ? CHR$UT SO ! RIGHT$CH NAEMLICH BIN EIN 598 PRINT" EHRLICHES [208]ROGRAMMM !!! ":PRINT" <[196]RUECKE [211]PACE>" 599 SYS 58592:SYS 58592:SYS 58592:GOTO 542 600 PRINT"[147] [206]UN STEHST DU MITTEN IM [211]TADTPARK. 602 [153]" STR$U SIEHST DAS HIER VIELE (null)INDER HERUM- 604 PRINT" TOLLEN UND [211]PASS HABEN. [201]ST JA 606 [153]" EIGENTLICH VERSTAENDLICH, DENN UNSER 608 PRINT" [208]ARK IST JA WIRKLICH EIN IDYLLISCHES 610 [153]" (null)LAETZCHEN. 615 IF V7$="" THEN GOTO 620 616 PRINTV7$ 617 PRINTV8$ 618 PRINTV9$ 620 PRINT" [196]U KANNST [206], [211],"VA$"... 622 [141] 150 623 [139] I$[178]"" [167] [137] 600 624 [139] I$[178]"INVENTAR" [167] [141] 175 625 [139] I$[178]"S" [176] I$[178]"(null)" [167] [137] 450 626 [139] I$[178]"(null)" [176] I$[178]"N" [167] [137] 750 627 [139] I$[178]"SPRICH" [176] I$[178]"SPRICH MIT JUNGE" [167] [137] 650 628 [139] I$[178]"SPRICH MIT MID$UNGEN" [176] I$[178]"SPRECHE" [167] [137] 650 629 [139] I$[178]"GIB (null)AUGUMMI" [176] I$[178]"GIB KAUGUMMI" [167] [137] 700 630 [139] I$[178]"GEBE (null)AUGUMMI" [176] I$[178]"GEBE KAUGUMMI" [167] [137] 700 631 [139] I$[178]"GIB (null)AUGUMMI AN MID$UNGE" [176] I$[178]"GIB KAUGUMMI AN JUNGE" [167] [137] 700 632 [139] I$[178]"GEBE KAUGUMMI AN JUNGE" [176] I$[178]"GIB KAUGUMMI AN MID$UNGE" [167] [137] 700 633 [139] I$[178]"GEBE (null)AUGUMMI AN MID$UNGE" [176] I$[178]"GIB (null)AUGUMMI AN MID$UNGE" [167] [137] 700 634 [139] I$[178]"GEBE KAUGUMMI AN KIND" [176] I$[178]"GEBE (null)AUGUMMI AN (null)IND" [167] [137] 700 635 [139] I$[178]"GIB (null)AUGUMMI AN (null)IND" [176] I$[178]"GIB KAUGUMMI AN KIND" [167] [137] 700 636 [139] I$[178]"SPRICH MIT KIND" [176] I$[178]"SPRICH MIT (null)IND" [167] [137] 650 637 [139] I$[178]"SPRECHE MIT JUNGEN" [176] I$[178]"SPRECHE MIT MID$UNGEN" [167] [137] 650 638 [139] I$[178]"SPRECHE MIT (null)IND" [176] I$[178]"SPRECHE MIT KIND" [167] [137] 650 639 [153][199](13):[153]" STR$AS KANNST DU LEIDER NICHT TUN !" 640 [153]" ":[158] 58592:[158] 58592:[158] 58592 645 [137] 600 650 [153][199](13):[153]" STR$U SPRICHST DEN MID$UNGEN AUF SEIN 651 PRINT" [208]ROBLEM AN, UND ER ANTWORTET, DAS 652 [153]" ER SEINEN (null)AUGUMMI VERLOREN HAT. 653 PRINT" [196]ARAUF FRAGST DU IHN, WAS AN SEINEM 654 [153]" (null)AUGUMMI DEN SO BESONDERES WAERE, 655 PRINT" DARAUF ENTGEGNET ER, WESHALB ICH DAS 656 [153]" WISSEN WOLLTE, DARAUF ANTWORTETE ICH 657 PRINT" WIEDERUM, DAS ICH IHM VIELLEICHT 658 [153]" HELFEN KOENNTE. 660 PRINT" <[196]RUECKE [211]PACE>" 661 SYS 58592:SYS 58592:SYS 58592 662 PRINT"[147] [196]ARAUFHIN NUSCHELT ER LEISE VOR 663 [153]" SICH HIN, DAS DER (null)AUGUMMI (null)AGISCHE 664 PRINT" [203]RAEFTE HAETTE (WIR RUTSCHEN IN DEN 665 [153]" ASCANTASIEBEREICH AB, DABEI HAETTE 666 PRINT" DIESES WUNDERVOLLE [[200]AE ?!?] [193]DVENTURE 667 [153]" EIGENTLICH ERNST SEIN SOLLEN. LEFT$EY, 668 PRINT" WARTE MAL ! [201]CH [DAMIT MEINE ICH MICH] 669 [153]" BIN DOCH DER (null)ROGRAMMIERER, ODER 670 PRINT" LIEGE ICH DA FALSCH ? [193]LSO, DANN KANN 671 [153]" RIGHT$LENLEFT$ JA FESTLEGEN WAS PASSIEREN SOLL, 672 PRINT" ODER ETWA NICHT ? [199]ENAU, ... 673 [153]" --- BREAKING FOR MESSAGE ---" 674 [153]" " 675 [158] 58592:[158] 58592:[158] 58592 676 [153]" (null)(null)(null)(null) --- (null)ROGRAMMIERER WURDE IN 677 PRINT" [201]RRENANSTALT EINGELIEFERT --- [211][212][207][208] --- 678 [153]" (null)ERU LEFT$IMMEL FUEHRT (null)ROJEKT NUN 679 PRINT" ZU [197]NDE --- [211][212][207][208] 680 [153]" " 681 [158] 58592:[158] 58592:[158] 58592 685 [153]"LOAD STR$ER MID$UNGE SAGTE, DAS ES SEIN 686 PRINT" [204]IEBLINGSKAUGUMMI WAR, UND DAS 687 [153]" ER DAFUER ALLES ANDERE HERGEBEN WUERDE! 688 PRINT" [193]LLES, FRAGST DU MIT EINEM SELTSAMEN 689 [153]" (null)EUCHTEN IN DEINEN ATNUGEN, AUCH DEIN 690 PRINT" [212]ASCHENGELD ? [193]UCH DAS, ANTWORTET ER 691 [153]" SELBSTBEWUSST. 692 PRINT" [203]ANNST DU MIR MEIN [203]AUGUMMI ZURUECK- 693 [153]" BRINGEN ? RIGHT$ST SEINE LEZTE ASCRAGE, DIE 694 PRINT" ER PLOETZLICH WIEDER MIT WEINERLICHER 695 [153]" (null)TIMME SPRICHT. 696 PRINT" <[196]RUECKE [211]PACE>" 697 SYS 58592:SYS 58592:SYS 58592 698 GOTO 600 700 IF GUM$="" THEN GOTO 740 701 PRINTCHR$(13):PRINT" [193]LS DU PLOEZTLICH DEN ALTEN [203]AU- 702 [153]" GUMMI AUS DEINER (null)ASCHE ZIEHST, 703 PRINT" BEKOMMT DER [202]UNGE PLOEZTLICH GROSSE 704 [153]" ATNUGEN UND BLICKT DICH ERFREUT AN. 705 PRINT" [193]LS ER JEDOCH ZUGRIFF UM SEIN [212]EIL 706 [153]" AN SICH ZU NEHMEN ZIEHST DU BLITZ- 707 PRINT" SCHNELL DEINE [200]AND ZURUECK. 708 [153]" VALRST MEINE PEEKELOHNUNG, SAGTEST DU, 709 PRINT" ALSO DEIN [212]ASCHENGELD ! [200]AE,HAE,HAE... 710 [153]" STR$AS (null)IND BEKAM NOCH GROESSERE ATNUGEN 711 PRINT" ALS ES OHNEHIN SCHON HATTE, UND DU 712 [153]" BEFUERCHTEST, DAS SIE NOCH HERAUS- 713 PRINT" KULLERN. [196]OCH PLOETZLICH [193]ENDERTE SICH 714 [153]" DAS (null)ERHALTEN DES MID$UNGEN. VALR KRAMTE 715 PRINT" IN DEN [212]ASCHEN SEINER [202]EANS HERUM UND 716 [153]" MURMELTE ETWAS DAS WIE '(null)INDERAUS- 717 PRINT" BEUTER' ODER '[199]ELDGIERIGES [193]RSCH' 718 [153]" " 719 [158] 58592:[158] 58592:[158] 58592 720 [153]"LOAD STR$OCH DIE (null)IEBE ZU SEINEM (null)AUGUMMI 721 PRINT" WAR GROESSER ALS SEINE [215]UT. [197]R 722 [153]" DRUECKTE DIR SCHLIESSLICH EINEN 723 PRINT" [218]EHN-[205]ARKSCHEIN IN DIE [200]AND, UND WAR 724 [153]" FROH ENDLICH SEINEN (null)AUGUMMI WIEDER- 725 PRINT" ZUBEKOMMEN. [196]U WARFST IHM DEN 726 [153]" (null)AUGUMMI GUTGELAUNT ZU UND ER FING IHN 727 PRINT" GEKONNT AUF UND STOPFTE IHN SICH 728 [153]" SOFORT IN DEN (null)UND UND KAUTE DARAUF 729 PRINT" HERUM. [197]RST KNIRSCHTE ES NOCH EIN 730 [153]" BISCHEN VON DEM (null)AND ABER DANN LIEF 731 PRINT" ES WIE GESCHMIERT. 732 [153]" " 733 [158] 58592:[158] 58592:[158] 58592 734 GUM$[178]"":GE[178]10:V7$[178]"":V8$[178]"":V9$[178]"":VA$[178]"" 735 [137] 600 740 [143]NTCHR$(13):PRINT" STR$AS KANNST DU NICHT MEHR, DA 741 REM=T" 1. [196]U KEINEN [203]AUGUMMI MEHR BESITZT. 742 [143]NT" 2. STR$ER MID$UNGE NICHT MEHR DA IST. 743 REMNT" 3. [196]ER [202]UNGE SCHON SEINEN [203]AUGUMMI 744 [143]NT" VON DIR BEKOMMEN HAT. 745 REMNT" <[196]RUECKE [211]PACE>" 746 REM 58592:SYS 58592:SYS 58592 748 GOTO 600 750 PRINT"[147] [206]UN STEHST DU VOR DER [213]-[194]AHN [211]TATION. 751 [153]" VALINE ALTE, HAESSLICHE ASCRAU STEHT NEBEN 752 PRINT" DIR UND VERKAUFT [198]AHRKARTEN, OHNE 753 [153]" DIE DU NICHT IN DIE (null)-PEEKAHN HINEIN- 755 PRINT" KOMMST. [196]IE ALTE [198]RAU SCHAUT DICH 756 [153]" MIT EINEM SEHR SELTSAMEN PEEKLICK AN, 758 PRINT" DER DIR DAS [194]LUT IN DEN [193]DERN GE- 759 [153]" FRIEREN LAESST. (null)O EINE ALTE (null)CHACHTEL! 760 PRINT"[145] DENKST DU DIR UND WILLST FLIEHEN, 761 [153]" DOCH DER (null)PIELERINSTINKT HAELT DICH 762 PRINT" DAVON AB, DEN [211]CHWANZ EINZUZIEHEN, 763 [153]" UND ABZUHAUEN. 764 PRINT" [196]U KANNST MIT DER ALTEN [198]RAU SPRECHEN 765 [153]" UND NACH (null). ATNUSSERDEM KANNST DU NOCH 766 PRINT" IN DIE [213]-[194]AHN EINSTEIGEN (ABER NUR 767 [153]" WENN DU EINE ASCAHRKARTE BESITZT, WIR 768 PRINT" SIND JA KEINE [211]CHWARZFAHRER, GELLE!) 770 [141] 150 771 [139] I$[178]"" [167] [137] 750 772 [139] I$[178]"INVENTAR" [167] [141] 175 773 [139] I$[178]"S" [176] I$[178]"(null)" [167] [137] 600 774 [139] I$[178]"SPRICH MIT ASCRAU" [176] I$[178]"SPRICH MIT FRAU" [167] [137] 800 775 [139] I$[178]"SPRECHE MIT ASCRAU" [176] I$[178]"SPRECHE MIT FRAU" [167] [137] 800 776 [139] I$[178]"SPRECHE MIT ALTER ASCRAU" [176] I$[178]"SPRECHE MIT ALTER FRAU" [167] [137] 800 777 [139] I$[178]"SPRICH MIT ALTER ASCRAU" [176] I$[178]"SPRICH MIT ALTER FRAU" [167] [137] 800 778 [139] I$[178]"SPRICH MIT ALTER ASCRAU" [176] I$[178]"SPRICH MIT ALTER FRAU" [167] [137] 800 779 [139] I$[178]"STEIGE IN DIE U-BAHN EIN" [167] [137] 850 780 [139] I$[178]"STEIGE IN DIE (null)-PEEKAHN EIN" [167] [137] 850 781 [139] I$[178]"GEHE IN U-BAHN" [176] I$[178]"GEHE IN (null)-PEEKAHN" [167] [137] 850 782 [139] I$[178]"BENUTZE (null)-PEEKAHN" [176] I$[178]"BENUTZE U-BAHN" [167] [137] 850 783 [139] I$[178]"FAHRE MIT (null)-PEEKAHN" [176] I$[178]"FAHRE MIT U-BAHN" [167] [137] 850 784 [139] I$[178]"KAUFE FAHRKARTE" [176] I$[178]"KAUFE ASCAHRKARTE" [167] [137] 800 785 [139] I$[178]"BENUTZE CHR$ELD" [176] I$[178]"BENUTZE GELD" [167] [137] 800 786 [139] PO[178]1 [175] I$[178]"GIB BLUMEN" [167] [137] 820 787 [139] PO[178]1 [175] I$[178]"GIB PEEKLUMEN" [167] [137] 820 788 [139] PO[178]1 [175] I$[178]"GEBE BLUMEN" [167] [137] 820 789 [139] PO[178]1 [175] I$[178]"GEBE PEEKLUMEN" [167] [137] 820 790 [139] PO[178]1 [175] I$[178]"GEBE PEEKLUMEN AN ASCRAU" [167] [137] 820 791 [139] PO[178]1 [175] I$[178]"GIB PEEKLUMEN AN ASCRAU" [167] [137] 820 792 [139] PO[178]1 [175] I$[178]"GIB BLUMEN AN FRAU" [167] [137] 820 793 [139] PO[178]1 [175] I$[178]"GEBE BLUMEN AN FRAU" [167] [137] 820 794 [139] PO[178]1 [175] I$[178]"GEBE BLUMEN AN FRAU" [167] [137] 820 795 [139] PO[178]1 [175] I$[178]"GEBE BLUMEN AN FRAU" [167] [137] 820 796 [139] PO[178]1 [175] I$[178]"GEBE BLUMEN AN FRAU" [167] [137] 820 797 [153][199](13):[153]" STR$AS KANNST DU LEIDER NICHT TUN !" 798 [153]" ":[158] 58592:[158] 58592:[158] 58592 799 [137] 750 800 [153][199](13) 801 [153]" STR$U GEHST ZU DER ASCRAU HIN UND FRAGST 802 PRINT" SIE OB DU EINE [198]AHRKARTE HABEN KANNST, 803 [153]" DARAUF ANTWORTET SIE, DAS SIE NUR 804 PRINT" NOCH EINE HATT UND DIESE SELBER 805 [153]" BRAUCHT. (null)ERZWEIFELT VERSUCHST DU IHR 806 PRINT" ZU ERKLAEREN, DAS DEIN [204]EBEN DAVON 807 [153]" ABHAENGT, DAS DU IN DIE (null)BERSTADT 808 PRINT" KOMMST. [196]OCH SCHEINBAR VERSTEHT SIE 809 [153]" NICHT, WAS DU MEINST. ATNLLES WAS SIE 810 PRINT" SAGT, IST, DAS DU FUER EIN BISCHEN 811 [153]" ATNBWECHSLUNG SORGEN SOLLST IN IHREM 812 PRINT" GRAUEN [204]EBEN ALS [198]AHRKARTEN- 813 [153]" VERKAUEFERIN.":PO[178]1 814 [153]" " 816 [158] 58592:[158] 58592:[158] 58592 819 [137] 750 820 [153][199](13) 821 [153]" STR$U ALTE ASCRAU BLICKT DICH UNGLAUEBIG 822 PRINT" AN UND FAELLT BEINAHE IN [207]HNMACHT 823 [153]" UND IN DER ASCREUDE DRUECKT SIE DIR 824 PRINT" DIE [198]AHRKARTE IN DIE [200]AND, DANN 825 [153]" NIMMT SIE DENN PEEKLUMMENSTRAUSS UND 826 PRINT" RENNT UEBERGLUECKLICH DAVON... 827 CARD$[178]"ASCAHRKARTE":PO[178]2:BLU$[178]"" 830 [153]" " 831 [158] 58592:[158] 58592:[158] 58592 832 [137] 750 850 [153][199](13):[139] CARD$[178]"" [167] 2000 851 [153]" STR$U STEIGST UEBERGLUECKLICH IN DIE 852 PRINT" [213]-[194]AHN EIN UND FAEHRST DEINEM HEISS- 853 [153]" ERSEHNTEN (null)IEL ENTGEGEN. " 854 [153]" " 855 [158] 58592:[158] 58592:[158] 58592 856 [143]RINT"LOAD (null)OCHMAL SPIELEN ?(MID$/(null)) 857 REMET PO$:IF PO$="" THEN GOTO 857 858 REMF PO$="J" THEN RUN 859 REMF PO$="N" THEN GOTO 900 860 REMOTO 857 900 PRINT"[147] [201]CH HOFFE IHNEN HAT DAS [211]PIEL 902 [153]" EIN WENIG (null)PASS GEMACHT. 904 PRINT" [196]ANKE FUER'S MITSPIELEN. 907 [153]" ATNUF (null)IEDERSEHEN IN EINEM NAECHSTEN 908 PRINT" [211]PIEL VON MIR ! 910 [143] SYS 64738 2000 [153]" LEFT$EY, DU PEEKETRUEGER! STR$U BESITZT GAR " 2001 [153]" KEINE ASCAHRKARTE! (null)ILLST DU MICH 2002 PRINT" BESCHEISSEN, ODER WAS?! 2004 [129]A[178]0[164]4000:[130]:[153]" (null)O SCHNELL KANN'S GEHEN!" 2006 [153]" STR$AS (null)ROGRAMM IST GELOESCHT, VIEL (null)PASS 2008 PRINT" BEIM [206]EULADEN! [212]SCHUESSSSSSSS! 2010 [162] 62999 [128] 63000 [129]X[178]1[164] 24:[151] 54272[170]X,0: [130] 63001 S[178]54272 63002 [151] S[170]24,7 63003 [151] S[170]5,12[172]16[170]0 63004 [151] S[170]6,15[172]16[170]10 63005 [129] X[178] 255 [164] 100[169] [171]1 63006 [151] S[170]1,X 63007 [151] S[170]4,17 63008 [129] D[178]1 [164] 10 : [130] D 63009 [130] X 63010 [151] S[170]24,15 63011 [151] S[170]1,15 63012 [151] S[170]4,128 63013 [142] 63015 S[178]54272 63016 [151] S[170]24,15:[151] S[170]1,110 63017 [151] S[170]5,9:[151] S[170]6,9 63018 [151] S[170]4,17:[151] S[170]4,16 63019 [142] 63020 [129] I[178]32770 [164] 32778 63021 [135] A:[151] I,A 63022 [130] A 63023 [131] 010,128 63024 [131] 195,194 63025 [131] 205,056 63026 [131] 048,088 63027 [131] 000 63029 [142] 63030 [151] 2050,1 63031 [158] 42291 63032 [151] 46,[194](35) 63033 [151] 45,[194](781)[170]2 63035 [156] 63039 [142] 63040 [151] 44,[194](46)[170]1 63041 : 63047 [151] 44,8 63049 [142] 63050 [143] ----------------- 63051 [143] -PROGRAMMIERT - 63052 [143] -VON - 63053 [143] -DANIEL HIMMEL - 63054 [143] -76571 GAGGENAU - 63055 [143] ----------------- 63056 [143] 63057 [143] DIESES PROGRAMM 63058 [143] IST PUBLIC DOMAIN 63059 [143] SOFTWARE 63060 [143] UND IST DAMIT 63061 [143] FREI KOPIERBAR ! 63062 [143] 63063 [143] 63064 [143] COPY ME !!! 63065 [143] ----------- 63066 [143] DATA HOUSE -> PUBLIC DOMAIN 63067 [143] HUSUMER STRASSE 13 63068 [143] 34246 VELLMAR 63069 [143] ------------------